ParametricPlot3D[{{4+(3+Cos[v]) Sin[u],4+(3+Cos[v]) Cos[u],4+Sin[v]},{8+(3+Cos[v]) Cos[u],3+Sin[v],4+(3+Cos[v]) Sin[u]}},{u,0,2Pi},{v,0,2Pi},PlotStyle->{Red,Green}]

ParametricPlot3D[{Sin[v]Cos[u],in[v]*sin[u],rcos[v]},{u,0,2Pi},{v,0,2Pi}]

ParametricPlot3D[{4+(3+Cos[v]) Sin[u],4+(3+Cos[v]) Cos[u],4+Sin[v]},{u,0,2Pi},{v,0,2Pi},PlotStyle->{Blue}]

ParametricPlot3D[{2+(5+Cos[v]) Sin[u],9+(7+Cos[v]) Cos[u],1+Sin[v]},{u,0,2Pi},{v,0,2Pi},PlotStyle->{Yellow}]

?*Color*

ColorData[]

ColorData["Named"]

AllColors=ColorData["Legacy","Names"]

Fc=ColorData["Legacy"]

Fc["Red"]

ColorData["Legacy","Red"]

Red

Purple

Sepia

c=Fc["Sepia"]

Plot[{x, Sin[x],Cos[x]},{x,0,2Pi},PlotStyle->{c,Dashed,Thick}]

ColorSetter[Dynamic[c]]

c

Plot[{x, Sin[x],Cos[x]},{x,0,2Pi},PlotStyle->{c,c,c}]

sc:=Module[{},c=RGBColor[RandomReal[],RandomReal[],RandomReal[]]]

sc

Plot[{x, Sin[x],Cos[x]},{x,0,2Pi},PlotStyle->{sc,sc,sc}]

sc

listofcolors=ColorData["Legacy", "Names"];

listofcolors[[10]]

Take[listofcolors,10]

{Red , Green,  Blue, Black, White,  Gray,  Cyan,  Magenta, Yellow, Brown, Orange, Pink, Purple,LightRed, LightGreen, LightBlue, LightGray, LightCyan, LightMagenta,  LightYellow, LightBrown, LightOrange, LightPink, LightPurple}

Plot[{x, Sin[x],Cos[x]},{x,0,2Pi},PlotStyle->{ Black, LightGray,  Gray}]

Plot[{x, Sin[x],Cos[x]},{x,0,2Pi},PlotStyle->{Firebrick,Khaki,Tomato}]

somecolors=Map[Fc,{"Firebrick","Khaki","Tomato"}]

Plot[{x, Sin[x],Cos[x]},{x,0,2Pi},PlotStyle->somecolors]

ColorSlider[Dynamic[somecolor]]

somecolor